home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HeiBe Erotik
/
HeiBe Erotik.iso
/
erovoll
/
dice
/
dicewahl.dir
/
00011_Script_11
< prev
next >
Wrap
Text File
|
1979-12-31
|
963b
|
32 lines
on startMovie
global FT, reg, DiceGirl,screen, CDPfad, ScreenFaktor
set ok=baRegister("Marc van Eupen", 3376334)
set the centerStage=true
Set Reg=0
Set Dicegirl=1
set the floatPrecision to 2
set CDPfad=the pathname
set Screen=getAt(the deskTopRectList,1)
set ScreenFaktor=float(the right of screen)/float(800)
set FT="lc"
if the colordepth>8 and the platform contains "Windows,32" then set ft="tc"
set CDPfad=the pathname
end
on Level_check
global level, dicegirl
if the frame>9 then exit
set inigirl="Girl"& dicegirl
set inilevel = baReadIni( "Dice3.1", inigirl, "", "dice3.ini" )
set temp =baDecryptText( inilevel , "938473920" )
if char 3 to 7 of temp="Level" then
set the text of member 26=temp
set level=value(char 1 to 2 of temp)
puppetsound "Aktion01"
go to frame "loadlevel"
else
puppetsound "wrongo"
set level=1
go to movie "Dice3"
end if
end Level_check